home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 1 / ACE CD 1.iso / files / utils / acroarex.dms / in.adf / Public_Domain / PD_STUFF.lha / RexxIntuition / Scripts / filename.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1992-05-30  |  1.9 KB  |  39 lines
  1. /* */
  2.  
  3. /* Get a ReqDef structure */
  4. rq=rxi_GetReq()
  5. IF rq == '' | rq == 0 THEN SAY 'ReqDef allocation error'
  6.  
  7. /* Do the File Requester with INFO_SUPPRESS. Initial path is ram:, but could */
  8. /* be any existing path or filename (ie df0:mydir/mydir2/myfilename)         */
  9. /* Note that not passing the remaining args sets them to defaults. Usually,  */
  10. /* this means that the settings that were used the last time that the req    */
  11. /* was opened are used again. The exception is the title string which defaults */
  12. /* to none. Since we pass 0 for screen, this opens on WB. */
  13. path=rxi_ReqWindow(rq,'No Info Files',4096,,,'ram:',,,0)
  14. IF path == '' THEN SAY 'Cancelled'
  15. IF path > '' THEN SAY path
  16.  
  17. /* Do the File Requester with extention match ".library/.device", use device names */
  18. /* This one only displays those files that end in ".library" or ".device". Also notice  */
  19. /* that instead of disk (volume) names, we get device names (ie DF0:).     */
  20. /* Note that since we passed a null string for the path, the fileio comes  */
  21. /* up in the previously selected dir. Note that we set the EXTENSION_MATCH  */
  22. /* of flags as well as pass the extension string. */
  23. path=rxi_ReqWindow(rq,'Match .library or .device',8192+256,,'.library/.device',,,,0)
  24. IF path == '' THEN SAY 'Cancelled'
  25. IF path > '' THEN SAY path
  26.  
  27. /* Do the File Requester with WB pattern matching of Object Type = Project (2) */
  28. /* There is no tooltypes string or extension match. Note that this only        */
  29. /* displays files that are projects (ie data as opposed to program files) and  */
  30. /* have icons. Flags = 16 to enable WB pattern matching and 32 for using the Object Type */
  31. init = 'df1:'
  32. path=rxi_ReqWindow(rq,'WB projects only (with icons)',16+32,,,init,2,,0)
  33. IF path == '' THEN SAY 'Cancelled'
  34. IF path > '' THEN SAY path
  35.  
  36. /* Free the ReqDef. Note: reassign return so that accidentally passing rq to
  37.    this function later wouldn't cause any problems. */
  38. rq=rxi_EndReq(rq)
  39.